home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Completions / BibCompletions.tcl next >
Encoding:
Text File  |  1998-04-27  |  1.3 KB  |  47 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #  Vince's Additions - an extension package for Alpha
  4.  # 
  5.  #  FILE: "BibCompletions.tcl"
  6.  #                                    created: 10/5/95 {12:55:13 am} 
  7.  #                                last update: 27/4/98 {5:39:43 pm} 
  8.  #  Author: Vince Darley
  9.  #  E-mail: <darley@fas.harvard.edu>
  10.  #    mail: Division of Applied Sciences, Harvard University
  11.  #          Oxford Street, Cambridge MA 02138, USA
  12.  #     www: <http://www.fas.harvard.edu/~darley/>
  13.  #  
  14.  # ###################################################################
  15.  ##
  16.  
  17. set completions(Bib) {completion::cmd Entry completion::word}
  18.  
  19. # ◊◊◊◊ Completions ◊◊◊◊ #
  20.  
  21. set Bibcmds "$entryNames"
  22.  
  23. ## 
  24.  # -------------------------------------------------------------------------
  25.  #     
  26.  # "Bib::Completion::Entry"    --
  27.  #    
  28.  #    If the current text    is '@XXX' where    'XXX' is the name of a bib-entry
  29.  #    type, then insert the correct template for that    type.
  30.  # -------------------------------------------------------------------------
  31.  ##
  32. proc Bib::Completion::Entry {{dummy ""}} {
  33.     global rqdFld
  34.     set lastword [completion::lastWord where]
  35.     set where [pos::math $where - 1]
  36.     if {[lookAt $where] != "@"} {
  37.         return 0
  38.     }
  39.     if ![info exists rqdFld($lastword)] {
  40.         return 0
  41.     }
  42.     bibFormatSetup
  43.     deleteText $where [getPos]
  44.     goto $where
  45.     newEntry $lastword
  46. }
  47.